SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TCMOVI_BANC_Q07]                    
/*-------------------------------------------------------*/                    
/*---Empresa               OFISIS S.A.                --*/                    
/*---Sistema               Tesoreria                  --*/                    
/*---M½dulo                Empresa                    --*/                    
/*---Programa              FLUJO PROYECTADO MENSUAL   --*/                    
/*---Script                SP_TCMOVI_BANC_Q07.sql     --*/                    
/*---Nombre SP             SP_TCMOVI_BANC_Q07         --*/                    
/*---Desarrollado por      Eduardo Vivar Pomiano      --*/                    
/*---Fecha Creacion        11/10/2001                 --*/                    
/*---Base Datos            SQL SERVER 7        --*/                    
/*---Versi½n                                      --*/                    
/*---Invoca a SP                                      --*/                    
/*------------------------------------------------------*/                    
/*---Modificado 1 por     Daniel Chiang B. --*/                    
/*---Fecha Modificaci½n   11/08/2006  --*/                     
/*---Detalle Modificaci½n Reemplazar Fecha Vencimiento por Cobro--*/                    
/*-------------------------------------------------------*/                    
/*---Modificado 2 por     Daniel Chiang B. --*/                    
/*---Fecha Modificaci½n   22/08/2006  --*/                     
/*---Corrigio problema para jalar correctamente --*/                    
/*---importes digitados por el usuario   --*/                    
/*-------------------------------------------------------*/                    
/*---Modificado 3 por     Daniel Chiang B. --*/                    
/*---Fecha Modificaci½n   24/08/2006  --*/                     
/*---Corrio problema para proyectar meses de  --*/                    
/*---años mayores al solicitado        --*/                    
/*-------------------------------------------------------*/                    
/*---Drop Proc SP_TCMOVI_BANC_Q07                      --*/                    
/*---Grant all on SP_TCMOVI_BANC_Q07 to public         --*/                     
/*---SP_TCMOVI_BANC_Q07 '01', 2006, 6, 'U'          --*/                    
/*-------------------------------------------------------*/                    
                  
--EXEC UL_TCMOVI_BANC_Q07 '01', 'SOL', 2006,12,'U'                     
                  
@ISCO_EMPR  TD_VC_002,                    
@ISCO_MONE  TD_VC_003,                    
@INNU_ANIO TD_IN_001,                    
@INNU_MESE TD_IN_001,                    
@ISTI_PRES TD_VC_001--- COMO MOSTRAR LOS IMPORTES 'U' =UNIDADES, 'M' =MILES                    
                     
AS           
          
                    
Create Table #TWSABA_REPO(               
    CO_EMPR CHAR(02) NULL,               
    CO_BANC VARCHAR(03) NULL,              
    NU_CNTA_BANC VARCHAR(20) NULL,              
    AA_BNCO VARCHAR(04) NULL,              
    MM_BNCO VARCHAR(02) NULL,              
    IM_SALD_INIC Numeric(16,4) NULL)               
              
Create Table #TWSABA_REPO_AUXI(               
CO_EMPR VARCHAR(02) NULL,              
CO_BANC VARCHAR(03) NULL,              
NU_CNTA_BANC VARCHAR(20) NULL,              
IM_SALD_INIC Numeric(16,4) NULL)                   
                    
CREATE TABLE #TWFLUJ_CAJA_Q02_1                       
 ( CO_EMPR      varchar(3) NULL,                    
   CO_ARUB varchar(3) NULL ,                    
   CO_RUBR varchar(3) NULL ,                    
   CO_SUBR varchar(3) NULL ,                    
   DE_ARUB varchar(80) NULL ,                    
   DE_RUBR varchar(80) NULL ,                    
   DE_SUBR varchar(80) NULL ,                    
   FA_TIPO_CAMB numeric(9,4) DEFAULT 0,                    
   CO_MONE varchar(3) NULL,                    
   FE_OPER datetime NULL,                    
   IM_0001_NACI numeric(16,4) DEFAULT 0,                    
   IM_0002_NACI numeric(16,4) DEFAULT 0,                    
   IM_0003_NACI numeric(16,4) DEFAULT 0,                    
   IM_0004_NACI numeric(16,4) DEFAULT 0,                    
   IM_0005_NACI numeric(16,4) DEFAULT 0,                    
   IM_0006_NACI numeric(16,4) DEFAULT 0,                    
   IM_0007_NACI numeric(16,4) DEFAULT 0,                    
   IM_0008_NACI numeric(16,4) DEFAULT 0,                    
   IM_0009_NACI numeric(16,4) DEFAULT 0,                    
   IM_0010_NACI numeric(16,4) DEFAULT 0,                    
   IM_0011_NACI numeric(16,4) DEFAULT 0,                    
   IM_0012_NACI numeric(16,4) DEFAULT 0,                    
   FA_TIPO_0001 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0002 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0003 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0004 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0005 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0006 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0007 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0008 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0009 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0010 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0011 numeric(9,4) DEFAULT 0,                    
   FA_TIPO_0012 numeric(9,4) DEFAULT 0,                    
   IM_SAIN_NACI numeric(15,4) DEFAULT 0,                    
   ST_DIGI      varchar(1) NULL,                    
   NU_ORDE      Int Default 0,                
   CO_BANC varchar(3) NULL ,                        
   NU_CNTA_BANC varchar(20) NULL ,                        
   DE_CNTA_BANC varchar(100) NULL,                
   TI_DETA_EMPR  varchar(1) NULL ,                      
   TI_DETA_BANC  varchar(1) NULL)                    
                    
DECLARE                    
@VNFE_0001 TD_IN_001,                     
@VNNU_ANNO TD_IN_001,                    
@CSCO_EMPR VARCHAR (50),                    
@VSNU_ANIO VARCHAR(4),                    
@VSNU_MESE VARCHAR (2),                    
@VNNU_FACT NUMERIC(16,4),                    
@OSTI_DOCU_LETR TD_VC_003,                    
@VNNU_MESE_ANTE TD_IN_001,                    
@VNNU_ANNO_ANTE TD_IN_001,                    
@VNNU_MESE_REPO TD_IN_001,                    
@VSCO_MONE_NACI TD_VC_003,                    
@VSCO_MONE_EXTR TD_VC_003,                    
@VDFE_INIC  TD_DT_001,                    
@VNIM_EMPL NUMERIC(16,4),                    
@VNIM_OBRE NUMERIC(16,4),                    
@VNIM_0001 NUMERIC(16,4),                    
@VNIM_0002 NUMERIC(16,4),                    
@VNIM_0003 NUMERIC(16,4),                    
@VNIM_0004 NUMERIC(16,4),                    
@VNIM_0005 NUMERIC(16,4),                    
@VNIM_0006 NUMERIC(16,4),                    
@VNIM_0007 NUMERIC(16,4),                    
@VNIM_AFPS NUMERIC(16,4),                    
@VNIM_CTSM NUMERIC(16,4),                    
@VNIM_CTSS NUMERIC(16,4),                    
@VNIM_SENA NUMERIC(16,4),                    
@VNIM_ESSA NUMERIC(16,4),                    
@VNIM_IESS NUMERIC(16,4),                    
@VNIM_QCAT NUMERIC(16,4),                    
@VDFE_INIC_AUXI TD_DT_001,                    
@VSCO_ARUB_INGR TD_VC_003,                    
@VSCO_ARUB_EGRE TD_VC_003,                    
@VSDE_ARUB_INGR TD_VC_100,                    
@VSDE_ARUB_EGRE TD_VC_100,                    
@VNNU_ANIO TD_IN_001,                    
@VNNU_CONT_MESE TD_IN_001,                    
@VNNU_MESE_PROY TD_IN_001,                    
@VSDE_SELE VARCHAR(6000),                    
@VSDE_VALO VARCHAR(6000),                    
@VSCO_EMPR VARCHAR (50),                    
@VSDE_CAMP VARCHAR(20),                    
@VSNU_CONT_MESE VARCHAR(2),                 
@INNU_SECU_MNAC TD_IN_001,                 
@VSNU_SECU_MNAC VARCHAR (4),                    
@IDFE_PROY_MAMN TD_DT_001,                    
@INNU_SECU_MEXT TD_IN_001,                    
@VSNU_SECU_MEXT VARCHAR (4),                    
@IDFE_PROY_MAEX TD_DT_001,                    
@VNNU_CORR_MESE TD_IN_001,          
@VSCO_MONE_DIGI TD_VC_003,                     
@VSNU_MESE_PROY VARCHAR(2),                
@VNNU_MESE_DIGI TD_IN_001,                    
@VNNU_ANIO_DIGI TD_IN_001,                
@VSNU_MESE_DIGI VARCHAR(2),                
@VSNU_ANIO_DIGI VARCHAR(4)                
                    
--@VNFE_VENC      TD_IN_001                    
                    
-- PRESENTACION EN UNIDADES O MILES                    
IF @ISTI_PRES = 'U'                    
 SELECT @VNNU_FACT = 1                    
IF @ISTI_PRES = 'M'                    
 SELECT @VNNU_FACT = 0.001                    
                    
                  
                    
-- PERIODO AÑO-MES                    
                
SELECT  @VSNU_MESE = Convert (Varchar(02),@INNU_MESE),                     
 @VSNU_ANIO = Convert (Varchar(04),@INNU_ANIO),                    
 @VNNU_MESE_REPO = @INNU_MESE                    
                    
SELECT  @VDFE_INIC = Convert(Datetime,'01'+'/'+@VSNU_MESE+'/'+@VSNU_ANIO, 103)                    
                    
                    
-- Soles y Dolares                
Select @VSCO_MONE_NACI = CO_MONE_DEFA, @VSCO_MONE_EXTR = CO_MONE_EXTR                    
From  TMPARA_TESO                    
Where CO_EMPR = @ISCO_EMPR                    
                    
-- Cual es el tipo de Doc Letras                    
Exec  SP_TTDOCU_CNTB_Q02 6, @OSTI_DOCU_LETR  OUTPUT                        
                    
/****************************************************/                    
                       
SELECT @VNNU_ANIO_DIGI = @INNU_ANIO,  @VNNU_MESE_DIGI = @INNU_MESE,                 
@VNNU_CONT_MESE = 1                 
                
SELECT @VNNU_MESE_PROY = @INNU_MESE                             
                
SELECT @VSDE_CAMP = 'IM_' + REPLICATE('0', 4-LEN(RTRIM(LTRIM(STR(@VNNU_CONT_MESE))))) +RTRIM(LTRIM(STR(@VNNU_CONT_MESE))) 
                       
SELECT @VSDE_CAMP = @VSDE_CAMP + '_NACI'                
SELECT @VSDE_VALO = 'IM_CALC_ME' + REPLICATE('0', 2-LEN(RTRIM(LTRIM(STR(@VNNU_MESE_PROY))))) 
+RTRIM(LTRIM(STR(@VNNU_MESE_PROY)))                    
                      
 ----   SETEO @VNNU_MESE CON EL MES INICIAL ---------                    
                      
--- LOOP PARA LLENAR LA TABLA TEMPORAL MES POR MES, DESDE EL MES 1 AL MES 12 -------------------                        
WHILE @VNNU_CONT_MESE <= 12                        
BEGIN               
 SELECT  @VSNU_MESE_DIGI = CONVERT(CHAR(2), @VNNU_MESE_DIGI),                        
  @VSNU_ANIO_DIGI = CONVERT(CHAR(4), @VNNU_ANIO_DIGI)                        
                         
                
--   SELECT     @VSNU_ANIO_DIGI , 'PRUEBA1'                 
   ----- INSERTO EN OTRA TABLA TEMPORAL EL IMPORTE CONVERTIDO EN EL PERIODO CORRESPONDIENTE ----------------                  
  
   EXECUTE('                    
   INSERT INTO #TWFLUJ_CAJA_Q02_1                       
   (        CO_EMPR, CO_ARUB, DE_ARUB, CO_RUBR, DE_RUBR, CO_SUBR, DE_SUBR, NU_ORDE, ST_DIGI,  ' + @VSDE_CAMP + ' , 
TI_DETA_EMPR, TI_DETA_BANC)                    
   Select T1.CO_EMPR,  T1.CO_ARUB, T1.DE_ARUB, T2.CO_RUBR, T2.DE_RUBR, T3.CO_SUBR,                     
                                T3.DE_SUBR, T3.NU_ORDE, "D",' + @VSDE_VALO + '  , "1", "2"                
   From TTARUB_FINA T1, TTRUBR_FINA T2, TTSUBR_FINA T3, TDFLUJ_PROY T4                  
   Where T1.CO_EMPR = ' + @ISCO_EMPR + '                    
    And T1.ST_REPO = "S"                    
    And T1.CO_EMPR = T2.CO_EMPR                    
    And T1.CO_ARUB = T2.CO_ARUB                      
    And T2.CO_EMPR = T3.CO_EMPR       
    And T2.CO_ARUB = T3.CO_ARUB                    
    And T2.CO_RUBR = T3.CO_RUBR                      
    And T3.CO_EMPR = T4.CO_EMPR                    
    And T4.NU_ANIO = CONVERT(INT, ' + @VSNU_ANIO_DIGI + ')                       
    And T3.CO_ARUB = T4.CO_ARUB                    
    And T3.CO_RUBR = T4.CO_RUBR                    
    And T3.CO_SUBR = T4.CO_CLSU            
    order by T1.CO_EMPR, T1.NU_ORDE, T2.NU_ORDE, T3.NU_ORDE             
   ')                 
                
EXECUTE SP_TWSABA_FLUJ_Q02 @ISCO_EMPR, @ISCO_MONE, @VSNU_ANIO_DIGI, @VSNU_MESE_DIGI            
              
EXECUTE('                 
INSERT INTO #TWFLUJ_CAJA_Q02_1 (CO_EMPR, CO_BANC, NU_CNTA_BANC, DE_CNTA_BANC, NU_ORDE, ' + @VSDE_CAMP + ', TI_DETA_EMPR, 
TI_DETA_BANC)                        
select T2.CO_EMPR, T2.CO_BANC, T2.NU_CNTA_BANC, T2.DE_CNTA_BANC,0,                   
T4.IM_SALD_INIC, "1", "1"                    
 from  TTBANC_FINA T1, TMCNTA_BANC T2, #TWSABA_REPO T4                    
 Where T2.CO_EMPR =   ' + @ISCO_EMPR + '                   
  and t1.co_banc = t2.co_banc                  
  and t1.st_banc_empr = "S"                          
  And T2.CO_EMPR = T4.CO_EMPR                    
  And T2.CO_BANC = T4.CO_BANC                    
  And T2.NU_CNTA_BANC = T4.NU_CNTA_BANC                                 
 ORDER BY T2.CO_EMPR, T2.CO_BANC, T2.NU_CNTA_BANC                 
')                 
             
DELETE FROM #TWSABA_REPO_AUXI              
DELETE FROM #TWSABA_REPO           
          
                          
          
          
             
-- SELECT  *FROM   TCFACT_PRME                
--SELECT @VNNU_MESE_DIGI = @VNNU_MESE_DIGI + 1, @VNNU_CONT_MESE = @VNNU_CONT_MESE + 1                        
                
select @VNNU_MESE_PROY = @VNNU_MESE_PROY + 1                  
select @VNNU_CONT_MESE = @VNNU_CONT_MESE + 1                 
select @VNNU_MESE_DIGI = @VNNU_MESE_DIGI + 1                
                
                
If @VNNU_MESE_PROY > 12                  
      Begin                  
    Select @VNNU_MESE_PROY = 1                  
    Select @VNNU_MESE_DIGI = 1                
    Select @VNNU_ANIO_DIGI = @VNNU_ANIO_DIGI + 1                   
      End                  
                
                
  SELECT @VSDE_CAMP = 'IM_' + REPLICATE('0', 4-LEN(RTRIM(LTRIM(STR(@VNNU_CONT_MESE))))) 
+RTRIM(LTRIM(STR(@VNNU_CONT_MESE)))                        
  SELECT @VSDE_CAMP = @VSDE_CAMP + '_NACI'                
  SELECT @VSDE_VALO = 'IM_CALC_ME' + REPLICATE('0', 2-LEN(RTRIM(LTRIM(STR(@VNNU_MESE_PROY))))) 
+RTRIM(LTRIM(STR(@VNNU_MESE_PROY)))                           
END                        
                  
                
-- HALLANDO EL TIPO DE CAMBIO                  
 Select @VNNU_CONT_MESE = 1,                   
        @VNNU_MESE_PROY = @INNU_MESE,                   
        @VSNU_ANIO_DIGI = Convert (Varchar(4), @INNU_ANIO)                  
                
 While  @VNNU_CONT_MESE <= 12                   
    Begin                  
                  
  Select @VSDE_CAMP = 'FA_TIPO_' + REPLICATE('0', 4-LEN(RTRIM(LTRIM(STR(@VNNU_CONT_MESE))))) 
+RTRIM(LTRIM(STR(@VNNU_CONT_MESE)))                  
  Select @VSNU_MESE_PROY = Convert( Varchar(2), @VNNU_MESE_PROY)                  
                  
  ----- SE HACE EL UPDATE EN LA TABLA CORRESPONDIENTE -------                  
                  
   EXECUTE('                  
UPDATE #TWFLUJ_CAJA_Q02_1                     
SET  ' + @VSDE_CAMP + ' = ISNULL( (Select FA_CAMB_CMPR From TCFACT_PRME Where TCFACT_PRME.CO_EMPR =  "'  + @ISCO_EMPR + 
'" And  TCFACT_PRME.CO_MONE =  "'+ @VSCO_MONE_EXTR + '" And TCFACT_PRME.NU_ANNO =  CONVERT(INT, ' + @VSNU_ANIO_DIGI + ') 
And TCFACT_PRME.NU_MESE = CONVERT(INT, ' + @VSNU_MESE_PROY + ' ) )  , 0)           
' )                  
                  
                  
  Select @VNNU_CONT_MESE = @VNNU_CONT_MESE + 1    
  Select @VNNU_MESE_PROY  = @VNNU_MESE_PROY + 1                   
                  
  If @VNNU_MESE_PROY > 12                  
     Begin                  
   Select @VNNU_MESE_PROY = 1                  
   Select @VSNU_ANIO_DIGI = Convert (Varchar(04),Convert(Int, @VSNU_ANIO_DIGI) + 1 )                  
     End                  
    End                  
                  
                
                  
--ACTUALIZAMOS A LA MONEDA DE PRESENTACION LO DIGITADO                
                
                
                
UPDATE #TWFLUJ_CAJA_Q02_1              
Set   IM_0001_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0001_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0001, 1))*(Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0002_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0002_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0002, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0003_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0003_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0003, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0004_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0004_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0004, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0005_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0005_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0005, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0006_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0006_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0006, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0007_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0007_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0007, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0008_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0008_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0008, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0009_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0009_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0009, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0010_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0010_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0010, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0011_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0011_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0011, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      IM_0012_NACI = (DBO.FN_TCFACT_CAMB_Q03 (T2.CO_MONE, @ISCO_MONE, T1.IM_0012_NACI, T3.CO_MONE_DEFA, T3.CO_MONE_EXTR, 
T1.FA_TIPO_0012, 1))* (Case When T1.CO_ARUB = '001' Then 1 Else - 1 End),                  
      ST_DIGI = 'D'                  
FROM  #TWFLUJ_CAJA_Q02_1    T1, TDFLUJ_PROY T2, TMPARA_TESO T3                  
Where T2.CO_EMPR = T1.CO_EMPR                  
And   T2.CO_ARUB = T1.CO_ARUB                  
And   T2.CO_RUBR = T1.CO_RUBR                  
And   T2.CO_CLSU = T1.CO_SUBR                  
And   T3.CO_EMPR = T1.CO_EMPR                  
                 
                    
-- Select final para reporte --                    
                    
SELECT T1.CO_EMPR, MAX(T2.DE_NOMB),                    
  T1.CO_ARUB, MAX(T1.DE_ARUB),                     
  T1.CO_RUBR, MAX(T1.DE_RUBR), T1.CO_SUBR, MAX(T1.DE_SUBR),                    
  SUM(ISNULL(T1.IM_0001_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0002_NACI,0))*@VNNU_FACT,                     
  SUM(ISNULL(T1.IM_0003_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0004_NACI,0))*@VNNU_FACT,                     
  SUM(ISNULL(T1.IM_0005_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0006_NACI,0))*@VNNU_FACT,                    
  SUM(ISNULL(T1.IM_0007_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0008_NACI,0))*@VNNU_FACT,                     
  SUM(ISNULL(T1.IM_0009_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0010_NACI,0))*@VNNU_FACT,                     
  SUM(ISNULL(T1.IM_0011_NACI,0))*@VNNU_FACT, SUM(ISNULL(T1.IM_0012_NACI,0))*@VNNU_FACT,                
  T1.CO_BANC, T1.NU_CNTA_BANC, MAX(T1.DE_CNTA_BANC), MAX(T1.TI_DETA_EMPR), MAX(T1.TI_DETA_BANC)                    
                    
FROM #TWFLUJ_CAJA_Q02_1    T1, TMEMPR T2                    
WHERE T1.CO_EMPR = T2.CO_EMPR                    
--And   ST_DIGI IS NULL                    
GROUP BY T1.CO_EMPR, T1.CO_ARUB, T1.CO_RUBR, T1.CO_SUBR, T1.CO_BANC, T1.NU_CNTA_BANC                    
                   
ORDER By T1.CO_EMPR, T1.CO_ARUB, T1.CO_RUBR, T1.CO_SUBR                    
                    
RETURN                    
/********************************* FIN ***********************************/


GO
